home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / SOURCE-T.SCR < prev    next >
Encoding:
Text File  |  1987-09-20  |  2.0 KB  |  77 lines
  1. ; LINKED SCRIPT FOR THE SOURCE VIA TELENET;
  2. ; LINK IT TO YOUR QMODEM PHONE DIRECTORY ENTRY FOR ANY
  3. ; TELENET PHONE NUMBER(S).
  4.  
  5. . USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
  6. .          [1] Your Source connect# for Telenet
  7. .          [2] Your Source account#
  8. .          [3] Your Source password
  9. .          [4] Any Source command(s)
  10.  
  11. .COMMENTS ARE PREDEDED BY A PERIOD & REFER TO THE NEXT COMMAND LINE
  12.  
  13. .Display message on-screen only
  14. NOTE ** LOGON TO THE SOURCE VIA TELENET **
  15.  
  16. .The next line says to WAITFOR 60 seconds before halting script
  17. TIMEOUT 60
  18.  
  19. .Set key parameters for The Source
  20. TURNON XON/XOFF
  21. TURNOFF ECHO LINEFEED
  22.  
  23. .Call Telenet;
  24. .phone number, bps, comm parameters depend on directory entry #
  25. .for local #s, contact Telenet at 800-336-0437 or 703-442-2200
  26.  
  27. .Telenet 'logon' is two CRs
  28. SEND "{{"
  29.  
  30. .Wait for Telenet to request terminal type
  31. WAITFOR "TERMINAL="
  32.  
  33. .Reply with D1 (all other terminal types add useless nulls
  34. SEND "D1{"
  35.  
  36. .Wait for Telenet to request host service ID
  37. WAITFOR "@"
  38.  
  39. .Reply with your Source connect ID for Telenet
  40. .[1] Refer to your Source new member kit for exact ID
  41. SEND "C 30138{"
  42.  
  43. .Wait for The Source to request your logon
  44. WAITFOR "Connected to THE SOURCE"
  45. WAITFOR "> "
  46.  
  47. .[2] Send your Source Account# followed by CR
  48. SEND "ID ACCOUNT#{"
  49.  
  50. .Wait for The Source to request your password
  51. WAITFOR "Password?"
  52.  
  53. .[3] Send your password; include control characters if required
  54. SEND "FAKE-PASSWORD{"
  55.  
  56. .Wait for The Source to Request your input
  57. WAITFOR "Enter item number or Help: "
  58.  
  59. .Eliminate Menus, go to the Source Command Mode
  60. SEND "Q{"
  61.  
  62. .Wait for The Source to Request your input
  63. WAITFOR "-> "
  64.  
  65. .Prevent CHAT if you wish to avoid interruptions
  66. SEND "CHAT -OFF{"
  67.  
  68. .Wait for The Source to Request your input
  69. WAITFOR "-> "
  70.  
  71. .[4] Send any Source command, such as:
  72. .    MAIL READ UNREAD{ or MENU{ or POST SCAN IBM{
  73. SEND "MAIL READ{"
  74.  
  75. .Discontinue script processing; return control to keyboard
  76. RETURN
  77.